home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / bach.src < prev    next >
Text File  |  1992-08-18  |  13KB  |  760 lines

  1. %%HP: T(3)A(D)F(.);
  2. @ BACH, by Lee Lightfoot
  3. DIR
  4.   up
  5.     \<< UPDIR
  6.     \>>
  7.   SHH
  8.     \<<
  9.       IF -40 FS?
  10.       THEN -40 CF
  11.       ELSE -40 SF
  12.       END
  13.     \>>
  14.   BACHEMAJ
  15.     \<< P1 P9 P12 P15
  16. P21 P26 P32 P35 P47
  17. P53 P60 P70 P74 P81
  18. P95 P101 P107 P114
  19. P118 P1 P9 P12 P15
  20. P21 P26 P32 P35
  21. ENND
  22.     \>>
  23.   P1
  24.     \<< .8 LE .8 LGS
  25. .8 B .4 WAIT 1 2
  26.       START .2 LGS
  27. .2 A .4 B
  28.       NEXT .4 E .4
  29. B .2 B .2 A .4 LGS
  30. .2 LFS .2 LE .2 A
  31. .2 B .2 CS .2 A .2
  32. LGS .2 A .2 B .2
  33. LGS .2 LFS .2 B .2
  34. CS .2 DS .2 E .2 FS
  35. .2 GS .2 HA 1 8
  36.       START .2 HB
  37.       NEXT .28 HB
  38. .2 GS .2 E .2 CS .2
  39. B .2 CS .2 E .2 GS
  40. 1 8
  41.       START .2 HA
  42.       NEXT .28 HA
  43. .2 FS .2 DS .2 B .2
  44. A .2 B .2 DS .2 FS
  45. 1 8
  46.       START .2 GS
  47.       NEXT .2 HA .2
  48. HB .2 HCS .2 HA .2
  49. GS .2 HA .2 HB .2
  50. GS .2 FS .2 GS .2
  51. HA .2 FS .2 E .2 FS
  52. .2 GS .2 E .2 DS .2
  53. E .2 FS .2 DS .2 A
  54. .2 B .2 CS .2 A .2
  55. LFS .2 LGS .2 A .2
  56. LFS .2 LDS .2 LE .2
  57. LFS .2 LDS .8 LB
  58.     \>>
  59.   P9
  60.     \<< .3 WAIT .2 FS
  61. .08 GS .08 HA 1 5
  62.       START .04 GS
  63. .04 HA
  64.       NEXT .05 GS
  65. .08 FS .08 E .2 GS
  66. .2 FS .2 E .2 DS .4
  67. E .2 B .2 B .2 CS
  68. .2 CS .2 DS .2 DS
  69. .2 E .2 E .2 B .2 B
  70. .2 CS .2 CS .2 DS
  71. .2 DS .2 E .2 FS .2
  72. GS .2 E .2 HA .2 FS
  73. .4 HB 1 3
  74.       START .04 GS
  75. .04 HA
  76.       NEXT .05 GS
  77. .2 FS .2 E .2 GS .2
  78. FS .2 E .2 DS .8 E
  79. .8 WAIT
  80.     \>>
  81.   P12
  82.     \<< .8 LE .8 LGS
  83. .8 B .4 WAIT .4 B
  84. .2 CS .2 DS .2 E .2
  85. CS .6 B .2 B .2 CS
  86. .08 DS .08 E .2 DS
  87. .08 E .08 FS .2 B
  88. .2 DS .2 E .2 GS .2
  89. HA .2 GS .2 FS .2
  90. HA .2 GS .2 FS .2 E
  91. .2 GS .2 FS .2 E .2
  92. DS .2 CS .2 B .2 A
  93. .2 LGS .2 LFS .8 LE
  94.     \>>
  95.   P15
  96.     \<< .8 LGS .8 B
  97. .4 WAIT 1 2
  98.       START .2 LGS
  99. .2 A .4 B
  100.       NEXT .4 E .4
  101. B .2 B .2 A .4 LGS
  102. .2 LFS .2 LE .2 A
  103. .2 B .2 CS .2 A .2
  104. LGS .2 A .2 B .2
  105. LGS .2 LFS .2 A .2
  106. B .2 DS .2 FS .2 DS
  107. .2 CS .2 B .2 A .2
  108. B .2 DS .2 FS .2 HA
  109. .2 GS .2 FS .2 E .2
  110. DS .2 E .2 FS .2 DS
  111. .2 B .2 DS .2 CS .2
  112. B .2 HA .2 GS .2 FS
  113. .2 E .2 DS .2 E .2
  114. FS .2 DS .2 B .2 DS
  115. .2 CS .2 B .2 HA .2
  116. GS .2 FS .2 E .2 DS
  117. .2 E .2 FS .2 DS .4
  118. B .2 DS .2 E .4 FS
  119. .2 DS .2 E .4 FS .4
  120. HB .4 FS .2 FS .2 E
  121. .4 DS .2 DS .2 CS
  122.     \>>
  123.   P21
  124.     \<< .2 FS .2 HB
  125. .2 FS .2 E .2 DS .2
  126. FS .2 DS .2 CS .2 B
  127. .2 HA .2 FS .2 E .2
  128. DS .2 FS .2 DS .2
  129. CS .2 B .2 GS .2 E
  130. .2 DS .2 CS .2 E .2
  131. CS .2 B .2 BF .2 CS
  132. .2 E .2 GS .6 FS .2
  133. E .28 DS .2 FS .2
  134. HAS .2 HB .28 CS .2
  135. E .2 HAS .2 HB .28
  136. B .2 DS .2 HAS .2
  137. HB .28 LF .2 CS .2
  138. GS .2 HB .2 HAS .2
  139. FS .2 CS .2 BF .2
  140. LFS .3 CS .3 DS .3
  141. E 1 8
  142.       START .2 FS
  143.       NEXT .28 FS
  144. .2 DS .2 C .2 LGS
  145. .2 LFS .2 LGS .2 B
  146. .2 DS 1 8
  147.       START .2 E
  148.       NEXT .28 E
  149.     \>>
  150.   P26
  151.     \<< .2 CS .2 BF
  152. .2 LFS .2 LE .2 LFS
  153. .2 BF .2 CS 1 8
  154.       START .2 DS
  155.       NEXT .2 E .2
  156. FS .2 GS .2 E .2 DS
  157. .2 E .2 FS .2 DS .2
  158. CS .2 DS .2 E .2 CS
  159. .2 B .2 CS .2 DS .2
  160. B .2 BF .2 B .2 CS
  161. .2 BF .2 LE .2 LFS
  162. .2 LGS .2 LE .2 LCS
  163. .2 LDS .2 LE .2 LCS
  164. .2 LAS .2 LB .2 LCS
  165. .2 LDS .2 LE .2 LFS
  166. .2 LGS .2 BF .2 B
  167. .2 CS .2 DS .08 E
  168. .08 FS .4 DS .2 CS
  169. .2 B .4 CS .2 B .2
  170. BF .2 B .08 DS .08
  171. E .2 FS .2 B .2 GS
  172. .2 B .2 HAS .2 B .2
  173. HB .08 HAS .08 GS
  174. .2 FS .2 E .08 DS
  175. .08 E .2 FS .08 CS
  176. .08 DS .2 E .08 DS
  177. .08 CS .2 B .2 FS
  178. .2 DS .2 HB .2 FS
  179. .2 DS .2 B .2 LFS
  180. .08 B .08 BF .2 B
  181. .2 LFS .2 LDS .08
  182. LFS .08 LE .2 LFS
  183. .2 LDS .4 LB
  184.     \>>
  185.   P32
  186.     \<< .2 LFS .2 LFS
  187. .2 LGS .2 LGS .2 BF
  188. .2 BF .4 B .2 LFS
  189. .2 LFS .2 LGS .2
  190. LGS .2 BF .2 BF .2
  191. B .2 CS .2 DS .2 B
  192. .2 E .2 CS .4 FS .2
  193. E .2 DS .2 CS .2 B
  194. .2 DS .2 CS .2 B .2
  195. BF .8 B .8 WAIT
  196.     \>>
  197.   P35
  198.     \<< .4 WAIT .2 LB
  199. .2 LD .2 LE .2 LGS
  200. .2 B .2 LGS .2 LFS
  201. .2 LE .2 LD .2 LE
  202. .2 LGS .2 B .2 D .2
  203. CS .2 B .2 A .2 LGS
  204. .2 A .2 B .2 LGS .2
  205. LE .2 LGS .2 LFS .2
  206. LE .22 D .2 CS .2 B
  207. .2 A .2 LGS .2 A .2
  208. B .2 LGS .2 LE .2
  209. LGS .2 LFS .2 LE
  210. .22 D .2 CS .2 B .2
  211. A .2 LGS .2 A .2 B
  212. .2 LGS .4 LE .2 LGS
  213. .2 A .4 B .2 LGS .2
  214. A .4 B .4 E .4 B .2
  215. B .2 A .4 LGS .2
  216. LFS .2 LE .2 B .2 E
  217. .2 B .2 A .2 LGS .2
  218. B .2 LGS .2 LFS .22
  219. LE .2 D .2 B .2 A
  220. .2 LGS .2 B .2 LGS
  221. .2 LFS .22 LE .2 CS
  222. .2 A .2 LGS .2 LFS
  223. .2 A .2 LFS .2 LE
  224. .2 LDS .2 LFS .2 A
  225. .2 CS .6 B .2 A .23
  226. LGS .2 B .2 DS .2 E
  227. .23 LFS .2 A .2 DS
  228. .2 E .23 LE .2 LGS
  229. .2 DS .2 E .23 LAS
  230. .2 LFS .2 CS .2 E
  231. .2 DS .2 B .2 LFS
  232. .2 LDS .2 LB .3 FS
  233. .3 GS .3 HA 1 8
  234.       START .2 HB
  235.       NEXT .28 HB
  236. .2 GS .2 E .2 CS .2
  237. B .2 CS .2 E .2 GS
  238. 1 8
  239.       START .2 HA
  240.       NEXT .28 HA
  241. .2 FS .2 DS .2 B .2
  242. A .2 B .2 DS .2 FS
  243. 1 8
  244.       START .2 GS
  245.       NEXT .2 HA .2
  246. HB .2 HCS .2 HA .2
  247. GS .2 HA .2 HB .2
  248. GS .2 FS .2 GS .2
  249. HA .2 FS .2 E .2 FS
  250. .2 GS .2 E .2 DS .2
  251. E .2 FS .2 DS .2 A
  252. .2 B .2 CS .2 A .2
  253. LFS .2 LGS .2 A .2
  254. LFS .2 LDS .2 LE .2
  255. LFS .2 LDS .2 LB
  256.     \>>
  257.   P47
  258.     \<< .2 LDS .2 LFS
  259. .2 A .2 B .2 DS .2
  260. FS .08 GS .08 HA .4
  261. GS .2 FS .2 E .4 FS
  262. .2 E .2 DS .2 E .08
  263. GS .08 HA .2 HB .2
  264. E .2 HCS .2 E .2
  265. HDS .2 E .2 HE .08
  266. HDS .08 HCS .2 HB
  267. .2 HA .08 GS .08 HA
  268. .2 HB .08 FS .08 GS
  269. .2 HA .08 GS .08 FS
  270. .2 E .2 HB .2 GS .2
  271. HE .2 HB .2 GS .2 E
  272. .2 B .08 E .08 DS
  273. .2 E .2 B .2 LGS
  274. .08 B .08 A .2 B .2
  275. LGS .4 LE .2 B .2 B
  276. .2 CS .2 CS .2 DS
  277. .2 DS .4 E .2 B .2
  278. B .2 CS .2 CS .2 DS
  279. .2 DS .2 E .2 FS .2
  280. GS .2 E .2 HA .2 FS
  281. .4 HB .2 HA .2 GS
  282. .2 FS .2 E .2 GS .2
  283. FS .2 E .2 DS .8 E
  284. .8 WAIT
  285.     \>>
  286.   P53
  287.     \<< .28 GS .2 CS
  288. .2 C .2 CS .2 LGS
  289. .2 CS .2 DS .2 C .2
  290. CS .2 LGS .2 A .2
  291. LFS .2 LGS .2 CS .2
  292. DS .2 E .22 DS .2
  293. GS .2 G .2 GS .2 DS
  294. .2 GS .2 HAS .2 G
  295. .2 GS .2 DS .2 E .2
  296. CS .2 DS .2 GS .2 G
  297. .2 GS .2 CS .2 C .2
  298. CS .2 FS .2 GS .2 F
  299. .2 FS .2 CS .2 D .2
  300. B .2 CS .2 LGS .2 A
  301. .2 LFS .2 LGS .2 A
  302. .22 LC .2 LGS .2 DS
  303. .2 E .2 FS .2 DS .2
  304. E .2 CS .2 C .2 DS
  305. .2 FS .2 HA .2 GS
  306. .2 FS .2 E .2 DS 1
  307. 8
  308.       START .2 E .2
  309. HCS
  310.       NEXT 1 8
  311.       START .2 DS
  312. .2 HCS
  313.       NEXT 1 4
  314.       START .2 DS
  315. .2 HB
  316.       NEXT 1 4
  317.       START .2 D .2
  318. HB
  319.       NEXT
  320.     \>>
  321.   P60
  322.     \<< 1 8
  323.       START .21 CS
  324. .2 HB
  325.       NEXT 1 8
  326.       START .21 CS
  327. .2 HA
  328.       NEXT 1 6
  329.       START .21 C
  330. .2 HA
  331.       NEXT .21 CS
  332. .2 HA .21 CS .2 HA
  333. 1 4
  334.       START .21 DS
  335. .2 HA
  336.       NEXT .21 DS
  337. .2 GS .21 DS .2 GS
  338. .21 DS .2 FS .21 DS
  339. .2 FS 1 4
  340.       START .21 DS
  341. .2 E
  342.       NEXT 1 4
  343.       START .21 CS
  344. .2 E
  345.       NEXT 1 4
  346.       START .21 B
  347. .2 F
  348.       NEXT 1 4
  349.       START .21 A
  350. .2 FS
  351.       NEXT 1 4
  352.       START .21 A
  353. .2 DS
  354.       NEXT .21 LGS
  355. .2 E .21 LGS .2 E
  356. .21 LGS .2 D .21
  357. LGS .2 D 1 4
  358.       START .21 LGS
  359. .2 CS
  360.       NEXT .21 LFS
  361. .2 DS .21 LFS .2 DS
  362. .21 LFS .2 CS .21
  363. LFS .2 CS 1 4
  364.       START .21 LFS
  365. .2 C
  366.       NEXT 1 4
  367.       START .21 LE
  368. .2 CS
  369.       NEXT 1 4
  370.       START .21 LG
  371. .2 CS
  372.       NEXT 1 4
  373.       START .21 LGS
  374. .2 C
  375.       NEXT
  376.     \>>
  377.   P70
  378.     \<< .86 CS .87 E
  379. .91 GS .4 WAIT .2 E
  380. .2 FS .4 GS .2 E .2
  381. FS .4 GS .46 HCS .4
  382. GS .2 GS .2 FS .4 E
  383. .2 DS .2 CS .27 HAS
  384. .2 E .2 DS .2 CS .2
  385. LFS .2 CS .2 DS .2
  386. E .26 HAS .2 E .2
  387. DS .2 CS .2 LFS .2
  388. CS .2 DS .2 E .24
  389. HB .2 FS .2 DS .2
  390. HB .2 FS .2 DS .2 B
  391. .2 FS .2 DS .2 B .2
  392. LFS .2 LDS .4 LB .2
  393. DS .2 E
  394.     \>>
  395.   P74
  396.     \<< .4 FS .2 DS
  397. .2 E .4 FS .4 HB .4
  398. FS .2 FS .2 E .4 DS
  399. .2 CS .2 B .27 GS
  400. .2 D .2 CS .2 B .2
  401. LE .2 B .2 CS .2 D
  402. .2 GS .2 D .2 CS .2
  403. B .2 LE .2 B .2 CS
  404. .2 D .2 HA .2 E .2
  405. CS .2 HA .2 E .2 CS
  406. .2 A .2 E .2 CS .2
  407. A .2 LE .2 LCS .4
  408. LA .2 LCS .2 LD .4
  409. LE .2 LCS .2 LD .4
  410. LE .4 A .4 LE .2 LE
  411. .2 LD .4 LCS .2 LB
  412. .2 LA .2 D .2 E .2
  413. D .2 B .2 CS .2 D
  414. .2 CS .2 A .2 B .2
  415. LE .2 LFS .2 LGS .2
  416. A .2 B .2 CS .2 D 1
  417. 9
  418.       START .2 E
  419.       NEXT .27 G
  420. .29 HAS .3 HB .32
  421. HCS .2 G .2 FS .2 E
  422. 1 9
  423.       START .2 D
  424.       NEXT .08 E
  425. .08 FS .2 GS .2 HA
  426. .2 HB .2 FS .2 E .2
  427. D
  428.     \>>
  429.   P81
  430.     \<< 1 8
  431.       START .2 CS
  432.       NEXT .2 D .08
  433. GS .08 HA .2 HB .2
  434. GS .2 CS .08 FS .08
  435. GS .2 HA .2 FS .2 B
  436. .08 E .08 FS .2 GS
  437. .2 E .2 A .08 D .08
  438. E .2 FS .2 D 1 4
  439.       START .2 LGS
  440. .2 D 1 3
  441.         START .2 E
  442. .2 D
  443.         NEXT
  444.       NEXT 1 4
  445.       START .2 LG
  446. .2 CS 1 3
  447.         START .2 E
  448. .2 CS
  449.         NEXT
  450.       NEXT 1 4
  451.       START .2 LFS
  452. .2 CS 1 3
  453.         START .2 E
  454. .2 CS
  455.         NEXT
  456.       NEXT 1 4
  457.       START .2 LFS
  458. .2 D 1 3
  459.         START .2 HB
  460. .2 D
  461.         NEXT
  462.       NEXT 1 4
  463.       START .2 LF
  464. .2 CS 1 3
  465.         START .2 HB
  466. .2 CS
  467.         NEXT
  468.       NEXT .4 HA .2
  469. GS .2 FS .4 GS .2
  470. FS .2 F .2 FS .2 FS
  471. .2 E .2 FS .2 D .2
  472. FS .2 CS .2 FS .2 D
  473. .2 FS .2 CS .2 FS
  474. .2 B .2 FS .2 A .2
  475. FS .2 LGS .2 B .8 D
  476. .4 CS .2 B .2 A .2
  477. LGS .2 LFS .2 A .2
  478. LGS .2 LFS .2 LF
  479.     \>>
  480.   P95
  481.     \<< .4 LFS .02
  482. WAIT .4 CS .02 WAIT
  483. .4 FS .02 WAIT .4 A
  484. .02 WAIT .2 LGS .2
  485. B .2 D .2 FS .4 E
  486. .4 GS .4 HAS .2 D
  487. .2 CS .4 D .4 HB .4
  488. GS .2 CS .2 B .4 CS
  489. .4 HA .2 HA .2 FS
  490. .2 DS .2 B .4 GS .4
  491. GS .2 E .2 CS .2 BF
  492. .2 LFS .2 BF .2 CS
  493. .2 E .2 DS .4 E .2
  494. CS .2 DS .4 E .4 E
  495. .4 E .2 DS .2 CS .4
  496. DS .2 B .2 CS .4 D
  497. .2 B .2 CS .4 D .2
  498. CS .2 B .4 CS .2 A
  499. .2 B .4 CS .2 B .2
  500. A .4 HA .2 FS .2 GS
  501. .4 HA .2 GS .2 FS
  502. .4 GS .2 B .2 CS .4
  503. D .2 CS .2 B
  504.     \>>
  505.   P101
  506.     \<< .4 GS .2 HA
  507. .2 GS .2 FS .2 E .2
  508. DS .2 CS .2 B .2
  509. LGS .2 A .2 LFS .4
  510. LB .4 HA .2 GS .2
  511. HA .2 HB .2 GS .2
  512. FS .2 GS .2 HA .2
  513. FS .2 E .2 FS .2 GS
  514. .2 E .2 DS .2 E .2
  515. FS .2 DS .2 CS .2
  516. DS .2 E .2 B .2 CS
  517. .2 E .2 DS .2 FS .2
  518. E .2 FS .2 GS .2 B
  519. .2 CS .2 E .2 DS .2
  520. FS .2 E .2 FS .2 GS
  521. .2 DS .2 E .2 GS .2
  522. FS .2 HA .2 GS .2
  523. HA .2 HB .2 DS .2 E
  524. .2 GS .2 FS .2 HA
  525. .2 GS .2 HA .2 HB
  526. .2 GS .2 HA .2 FS
  527. .2 GS .2 E .2 DS .2
  528. E .2 FS .2 DS .2 E
  529. .2 CS .2 DS .2 B .2
  530. A .2 B .2 CS .2 LGS
  531. .2 A .2 LE .2 LFS
  532. .2 LDS .8 LB .4
  533. WAIT .4 DS
  534.     \>>
  535.   P107
  536.     \<< .27 HAS .2 DS
  537. .2 CS .2 DS .26 LG
  538. .2 DS .2 CS .2 DS
  539. .25 E .2 CS .2 DS
  540. .2 B .24 CS .2 HAS
  541. .2 GS .2 HAS .2 B
  542. .2 CS .2 DS .2 GS
  543. .2 DS .2 CS .2 B .2
  544. BF .2 LGS .2 BF .2
  545. B .2 DS .2 B .2 BF
  546. .2 LGS .2 LFS .2 LE
  547. .2 LFS .2 LGS .2 CS
  548. .2 LGS .2 LFS .2 LE
  549. .2 LDS .2 LCS .2
  550. LDS .2 LE .2 LGS .2
  551. CS .2 DS .2 E .2 CS
  552. 1 4
  553.       START .19 G
  554. .19 CS .19 HAS .19
  555. CS
  556.       NEXT 1 4
  557.       START .18 GS
  558. .18 B .18 HB .18 B
  559.       NEXT 1 4
  560.       START .17 HAS
  561. .17 DS .17 HCS .17
  562. DS
  563.       NEXT 1 4
  564.       START .16 HB
  565. .16 DS .16 HDS .16
  566. DS
  567.       NEXT
  568.     \>>
  569.   P114
  570.     \<< .15 E .15 DS
  571. .15 E .35 HCS .16
  572. HCS .16 HB .16 HCS
  573. .32 HAS .16 HAS .16
  574. GS .16 HAS .32 G
  575. .16 G .16 GS .16 G
  576. .32 E .17 E .17 DS
  577. .17 E .32 CS .18 CS
  578. .18 C .18 CS .35 LG
  579. .1 LAS .1 LG 1.2 CS
  580. .3 WAIT .2 CS .08
  581. DS .08 E 1 4
  582.       START .03 DS
  583. .03 E
  584.       NEXT .2 CS .2
  585. B .2 DS .2 CS .2 B
  586. .2 BF 3.7 LGS .2
  587. BGS .2 LFS .2 BGS
  588. .2 LE .2 BGS .2 LDS
  589. .2 BGS
  590.     \>>
  591.   P118
  592.     \<< .2 LE .2 LCS
  593. .2 LC .2 LCS 1 A .2
  594. LE .2 LDS .2 LE 1
  595. CS .2 A .2 LGS .2 A
  596. 1 E .2 DS .2 CS .2
  597. E 1 HAS .25 GS .26
  598. G .27 HAS 1.1 HCS
  599. .28 HB .29 HAS .3
  600. HCS 1.5 HE .5 WAIT
  601. .7 HDS .7 HCS .7 HB
  602. .7 HAS .7 GS .7 G
  603. .7 GS .7 E .7 DS .7
  604. D .7 DS .7 LG .7
  605. LGS .7 LD .7 LDS
  606. .15 WAIT 3.6 B .35
  607. BF .7 LGS .35 LG
  608. .35 LGS 3.5 LGS 3.5
  609. WAIT
  610.     \>>
  611.   ENND
  612.     \<< .2 LDS .2 LFS
  613. .2 A .2 B .2 DS .2
  614. FS .08 GS .08 HA .4
  615. GS .2 FS .2 E .4 FS
  616. .2 E .2 DS .2 E .08
  617. GS .08 HA .2 HB .2
  618. E .2 HCS .2 E .2
  619. HDS .2 E .2 HE .08
  620. HDS .08 HCS .2 HB
  621. .2 HA .08 GS .08 HA
  622. .2 HB .08 FS .08 GS
  623. .2 HA .08 GS .08 FS
  624. .2 E .2 HB .2 GS .2
  625. HE .2 HB .2 GS .2 E
  626. .2 B .08 E .08 DS
  627. .2 E .2 B .2 LGS
  628. .08 B .08 A .2 B .2
  629. LGS .4 LE .2 B .2 B
  630. .2 CS .2 CS .2 DS
  631. .2 DS .4 E .2 B .2
  632. B .2 CS .2 CS .2 DS
  633. .2 DS .2 E .2 FS .2
  634. GS .2 E .2 HA .2 FS
  635. .4 HB .22 HA .24 GS
  636. .26 FS .28 E .3 GS
  637. .32 FS .34 E .36 DS
  638. 1.5 E
  639.     \>>
  640.   BGS
  641.     \<< 207 SWAP BEEP
  642.     \>>
  643.   LA
  644.     \<< 220 SWAP BEEP
  645.     \>>
  646.   LAS
  647.     \<< 233 SWAP BEEP
  648.     \>>
  649.   LB
  650.     \<< 246.94 SWAP
  651. BEEP
  652.     \>>
  653.   LC
  654.     \<< 261 SWAP BEEP
  655.     \>>
  656.   LCS
  657.     \<< 277 SWAP BEEP
  658.     \>>
  659.   LD
  660.     \<< 294 SWAP BEEP
  661.     \>>
  662.   LDS
  663.     \<< 311 SWAP BEEP
  664.     \>>
  665.   LE
  666.     \<< 329 SWAP BEEP
  667.     \>>
  668.   LF
  669.     \<< 349 SWAP BEEP
  670.     \>>
  671.   LFS
  672.     \<< 370 SWAP BEEP
  673.     \>>
  674.   LG
  675.     \<< 392 SWAP BEEP
  676.     \>>
  677.   LGS
  678.     \<< 415 SWAP BEEP
  679.     \>>
  680.   A
  681.     \<< 440 SWAP BEEP
  682.     \>>
  683.   BF
  684.     \<< 466 SWAP BEEP
  685.     \>>
  686.   B
  687.     \<< 493 SWAP BEEP
  688.     \>>
  689.   C
  690.     \<< 523 SWAP BEEP
  691.     \>>
  692.   CS
  693.     \<< 554 SWAP BEEP
  694.     \>>
  695.   D
  696.     \<< 587 SWAP BEEP
  697.     \>>
  698.   DS
  699.     \<< 622 SWAP BEEP
  700.     \>>
  701.   E
  702.     \<< 659 SWAP BEEP
  703.     \>>
  704.   F
  705.     \<< 698 SWAP BEEP
  706.     \>>
  707.   FS
  708.     \<< 740 SWAP BEEP
  709.     \>>
  710.   G
  711.     \<< 784 SWAP BEEP
  712.     \>>
  713.   GS
  714.     \<< 831 SWAP BEEP
  715.     \>>
  716.   HA
  717.     \<< 880 SWAP BEEP
  718.     \>>
  719.   HAS
  720.     \<< 932 SWAP BEEP
  721.     \>>
  722.   HB
  723.     \<< 988 SWAP BEEP
  724.     \>>
  725.   HC
  726.     \<< 1046 SWAP
  727. BEEP
  728.     \>>
  729.   HCS
  730.     \<< 1109 SWAP
  731. BEEP
  732.     \>>
  733.   HD
  734.     \<< 1175 SWAP
  735. BEEP
  736.     \>>
  737.   HDS
  738.     \<< 1244 SWAP
  739. BEEP
  740.     \>>
  741.   HE
  742.     \<< 1318 SWAP
  743. BEEP
  744.     \>>
  745.   order
  746.     \<< { up SHH
  747. BACHEMAJ P1 P9 P12
  748. P15 P21 P26 P32 P35
  749. P47 P53 P60 P70 P74
  750. P81 P95 P101 P107
  751. P114 P118 ENND BGS
  752. LA LAS LB LC LCS LD
  753. LDS LE LF LFS LG
  754. LGS A BF B C CS D
  755. DS E F FS G GS HA
  756. HAS HB HC HCS HD
  757. HDS HE } ORDER
  758.     \>>
  759. END
  760.